home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / xyz21.zip / OLD2NEW.BAS < prev    next >
BASIC Source File  |  1992-04-16  |  1KB  |  43 lines
  1. 10 ' The old XYZ to new XYZ format
  2. 20 ' By Dale P. Stocker
  3. 30 ' Hope you don't mind real basic, but most people have it.
  4. 40 '    First what is the file to convert?
  5. 50 KEY OFF
  6. 60 CLS: COLOR 11,0
  7. 70 FILES "*.3DL"
  8. 80 LOCATE 23,1
  9. 90 COLOR 15,0
  10. 100 INPUT "What file do you wish to convert ";FILE$
  11. 110 ' Set a error trap if they make a mistake.
  12. 120 'ON ERROR GOTO 1000
  13. 130 ' Give the full file name and make a copy.
  14. 140 FILE$=FILE$+".3DL"
  15. 150 A$="Copy "+FILE$+" Temp.3DL"
  16. 160 SHELL A$
  17. 170 ' Now set up the fields for the old format
  18. 180 OPEN "R",#1,"Temp.3DL", 12
  19. 190 OPEN "R",#2,FILE$, 14
  20. 200 FIELD #1, 2 AS OX$, 2 AS OY$, 2 AS OZ$, 2 AS OXX$, 2 AS OYY$, 2 AS OZZ$
  21. 210 FIELD #2, 2 AS NX$, 2 AS NY$, 2 AS NZ$, 2 AS NXX$, 2 AS NYY$, 2 AS NZZ$, 2 AS NCL$
  22. 220 N1=LOF(1)/14
  23. 230 LSET NCL$=MKI$(7)
  24. 240 FOR K=1 TO N1
  25. 250  GET #1,K
  26. 260 LSET NX$=OX$ : LSET NY$=OY$ : LSET NZ$=OZ$
  27. 270 LSET NXX$=OXX$ : LSET NYY$=OYY$ : LSET NZZ$=OZZ$
  28. 280 'PRINT "X =";CVI(NX$);" Y=";CVI(NY$);" Z=";CVI(NZ$)
  29. 290 ' PRINT "old X =";CVI(OX$);" Y=";CVI(OY$);" Z=";CVI(OZ$)
  30. 300 'PRINT "XX=";CVI(NXX$);"YY=";CVI(NYY$);"ZZ=";CVI(NZZ$)
  31. 310 'PRINT "old XX=";CVI(OXX$);"YY=";CVI(OYY$);"ZZ=";CVI(OZZ$);" color=";CVI(NCL$)
  32. 320 A$=INPUT$(1)
  33. 330  PUT #2,K
  34. 340 NEXT K
  35. 350 CLOSE
  36. 360 KILL "temp.3dl"
  37. 370 PRINT "Conversion complete.            "
  38. 380 END
  39. 390 CLS
  40. 400 COLOR 12,0
  41. 410 PRINT "Error detected...  Code";ERR
  42. 420 END
  43.